home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Muzyka / Edytory sampli (probek dzwieku) / ZynAddSubFX_2.2.0 / Setup_ZynAddSubFX-2.2.0.exe / source code / UI / PADnoteUI.fl < prev    next >
Text File  |  2005-03-12  |  35KB  |  1,087 lines
  1. # data file for the Fltk User Interface Designer (fluid)
  2. version 1.0106 
  3. header_name {.h} 
  4. code_name {.cc}
  5. decl {\#include "../Params/PADnoteParameters.h"} {public
  6. } 
  7.  
  8. decl {\#include "../Misc/Util.h"} {public
  9. } 
  10.  
  11. decl {\#include "../Misc/Master.h"} {public
  12. } 
  13.  
  14. decl {\#include "ResonanceUI.h"} {public
  15. } 
  16.  
  17. decl {\#include <FL/Fl_Box.H>} {public
  18. } 
  19.  
  20. decl {\#include <FL/Fl_Group.H>} {public
  21. } 
  22.  
  23. decl {\#include <math.h>} {} 
  24.  
  25. decl {\#include <stdio.h>} {} 
  26.  
  27. decl {\#include <stdlib.h>} {} 
  28.  
  29. decl {\#include <string.h>} {} 
  30.  
  31. decl {\#include "WidgetPDial.h"} {public
  32. } 
  33.  
  34. decl {\#include "EnvelopeUI.h"} {public
  35. } 
  36.  
  37. decl {\#include "LFOUI.h"} {public
  38. } 
  39.  
  40. decl {\#include "FilterUI.h"} {public
  41. } 
  42.  
  43. decl {\#include "OscilGenUI.h"} {public
  44. } 
  45.  
  46. decl {\#include "PresetsUI.h"} {public
  47. } 
  48.  
  49. class PADnoteHarmonicProfile {: {public Fl_Box}
  50. } {
  51.   Function {PADnoteHarmonicProfile(int x,int y, int w, int h, const char *label=0):Fl_Box(x,y,w,h,label)} {} {
  52.     code {pars=NULL;} {}
  53.   }
  54.   Function {init(PADnoteParameters *pars,Master *master_)} {} {
  55.     code {master=master_;
  56. this->pars=pars;} {}
  57.   }
  58.   Function {draw()} {} {
  59.     code {int ox=x(),oy=y(),lx=w(),ly=h();
  60. if (!visible()) return;
  61. REALTYPE smps[lx];
  62.  
  63. REALTYPE realbw=pars->getprofile(smps,lx);
  64. bool active=active_r();
  65.  
  66. //draw the equivalent bandwidth
  67. if (active) fl_color(220,220,220);
  68.  else fl_color(160,165,165);
  69. fl_line_style(0);
  70. int rbw=(int)(realbw*(lx-1.0)/2.0);
  71. for (int i=lx/2-rbw;i<(lx/2+rbw);i++) fl_line(ox+i,oy,ox+i,oy+ly-1);
  72.  
  73. fl_line_style(0);
  74. if (active) fl_color(200,200,200);
  75.  else  fl_color(160,160,160);
  76. for (int i=1;i<10;i++){
  77.     int kx=(int)(lx/10.0*i);
  78.     fl_line(ox+kx,oy,ox+kx,oy+ly-1);
  79. };
  80. for (int i=1;i<5;i++){
  81.     int ky=(int)(ly/5.0*i);
  82.     fl_line(ox,oy+ly-ky,ox+lx,oy+ly-ky-1);
  83. };
  84.  
  85.  
  86. fl_color(120,120,120);
  87. fl_line_style(FL_DOT);
  88. fl_line(ox+lx/2,oy,ox+lx/2,oy+ly);
  89.  
  90. //draw the graph
  91. fl_line_style(0);
  92. int old=0;
  93. for (int i=0;i<lx;i++){
  94.    int val=(int) ((ly-2)*smps[i]);
  95.    if (active) fl_color(180,210,240);
  96.       else fl_color(150,150,155);
  97.    fl_line(ox+i,oy+ly-1,ox+i,oy+ly-1-val);
  98.    if (active) fl_color(0,0,100);
  99.        else fl_color(150,150,150);
  100.    if (i>0) fl_line(ox+i-1,oy+ly-2-old,ox+i,oy+ly-2-val);
  101.    old=val;   
  102. };
  103.  
  104.  
  105. fl_line_style(FL_DASH);
  106. if (active) fl_color(0,100,220);
  107.     else fl_color(150,160,170);
  108. fl_line(ox+lx/2-rbw,oy,ox+lx/2-rbw,oy+ly-1);
  109. fl_line(ox+lx/2+rbw,oy,ox+lx/2+rbw,oy+ly-1);
  110.  
  111. fl_line_style(0);} {}
  112.   }
  113.   decl {Master *master;} {}
  114.   decl {PADnoteParameters *pars;} {public
  115.   }
  116. } 
  117.  
  118. class PADnoteOvertonePosition {: {public Fl_Box}
  119. } {
  120.   Function {PADnoteOvertonePosition(int x,int y, int w, int h, const char *label=0):Fl_Box(x,y,w,h,label)} {} {
  121.     code {pars=NULL;} {}
  122.   }
  123.   Function {init(PADnoteParameters *pars,Master *master_)} {} {
  124.     code {master=master_;
  125. this->pars=pars;} {}
  126.   }
  127.   Function {draw()} {} {
  128.     code {if (!visible()) return;
  129. const int maxdb=60;
  130.  
  131. int ox=x(),oy=y(),lx=w(),ly=h();
  132. const int maxharmonic=64;
  133.  
  134.  
  135. for (int i=1;i<maxharmonic;i++){
  136.     fl_color(200,200,200);
  137.     fl_line_style(FL_DOT);
  138.     if (i%5==0) fl_line_style(0);
  139.     if (i%10==0) fl_color(160,160,160);
  140.     int kx=(int)(lx/(REALTYPE)maxharmonic*i);
  141.     fl_line(ox+kx,oy,ox+kx,oy+ly);
  142. };
  143.  
  144.  
  145.  
  146. int n=OSCIL_SIZE/2;
  147. REALTYPE spc[n];
  148. for (int i=0;i<n;i++) spc[i]=0.0;
  149.  
  150. pthread_mutex_lock(&master->mutex);
  151. pars->oscilgen->getspectrum(n,spc,0);
  152. pthread_mutex_unlock(&master->mutex);
  153.  
  154.  
  155. //normalize
  156. REALTYPE max=0;
  157. for (int i=0;i<n;i++){
  158.    REALTYPE x=fabs(spc[i]);
  159.    if (max<x) max=x;
  160. }
  161. if (max<0.000001) max=1.0;
  162. max=max*1.05;
  163.  
  164. REALTYPE spectrum[lx];
  165. for (int i=0;i<lx;i++) spectrum[i]=0;
  166.  
  167.  
  168. for (int i=1;i<n;i++){
  169.     REALTYPE nhr=pars->getNhr(i);
  170.     int kx=(int)(lx/(REALTYPE)maxharmonic*nhr);
  171.     if ((kx<0)||(kx>lx)) continue;
  172.  
  173.         spectrum[kx]=spc[i-1]/max+1e-9;
  174.  
  175. };
  176.  
  177. fl_color(180,0,0);
  178. fl_line_style(0);
  179.  
  180. if (pars->Pmode==2){
  181.    int old=0;
  182.    for (int i=1;i<lx;i++){
  183.     if ((spectrum[i]>1e-10)||(i==(lx-1))){
  184.         int delta=i-old;
  185.         REALTYPE val1=spectrum[old];
  186.         REALTYPE val2=spectrum[i];
  187.  
  188.         REALTYPE idelta=1.0/delta;
  189.         for (int j=0;j<delta;j++){
  190.             REALTYPE x=idelta*j;
  191.             spectrum[old+j]=val1*(1.0-x)+val2*x;
  192.         };
  193.         old=i;
  194.     };
  195.       
  196.    };
  197. };
  198.  
  199. for (int i=0;i<lx;i++){
  200.     REALTYPE x=spectrum[i];
  201.         if (x>dB2rap(-maxdb)) x=rap2dB(x)/maxdb+1;
  202.              else continue;
  203.            int yy=(int)(x*ly);
  204.     fl_line(ox+i,oy+ly-1-yy,ox+i,oy+ly-1);
  205.       
  206. };} {}
  207.   }
  208.   decl {Master *master;} {}
  209.   decl {PADnoteParameters *pars;} {public
  210.   }
  211. } 
  212.  
  213. class PADnoteUI {open : {public PresetsUI_}
  214. } {
  215.   Function {PADnoteUI(PADnoteParameters *parameters,Master *master_)} {open
  216.   } {
  217.     code {pars=parameters;
  218. master=master_;
  219. oscui=NULL;
  220. resui=new ResonanceUI(pars->resonance);
  221. make_window();} {}
  222.   }
  223.   Function {make_window()} {open
  224.   } {
  225.     Fl_Window padnotewindow {
  226.       label {PAD synth Parameters} selected
  227.       xywh {76 165 535 450} type Double hide
  228.     } {
  229.       Fl_Tabs {} {
  230.         callback {if (o->value()!=harmonicstructuregroup) applybutton->hide();
  231.     else applybutton->show();}
  232.         xywh {0 0 535 395}
  233.       } {
  234.         Fl_Group harmonicstructuregroup {
  235.           label {Harmonic Structure}
  236.           xywh {0 20 535 375} box ENGRAVED_BOX
  237.         } {
  238.           Fl_Group bwprofilegroup {
  239.             xywh {5 30 90 260} box ENGRAVED_BOX
  240.             code0 {if (pars->Pmode!=0) o->deactivate();}
  241.           } {
  242.             Fl_Dial hpbasepar1 {
  243.               label Width
  244.               callback {pars->Php.base.par1=(int) o->value();
  245. hprofile->redraw();
  246. cbwidget->do_callback();}
  247.               xywh {20 75 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  248.               code0 {o->value(pars->Php.base.par1);}
  249.               class WidgetPDial
  250.             }
  251.             Fl_Choice hpbasetype {
  252.               label {Base Type}
  253.               callback {pars->Php.base.type=o->value();
  254. hprofile->redraw();
  255. cbwidget->do_callback();}
  256.               xywh {15 45 75 15} down_box BORDER_BOX labelsize 10 align 5 textsize 10
  257.               code0 {o->value(pars->Php.base.type);}
  258.             } {
  259.               menuitem {} {
  260.                 label Gauss
  261.                 xywh {15 15 100 20} labelfont 1 labelsize 10
  262.               }
  263.               menuitem {} {
  264.                 label Square
  265.                 xywh {25 25 100 20} labelfont 1 labelsize 10
  266.               }
  267.               menuitem {} {
  268.                 label DoubleExp
  269.                 xywh {35 35 100 20} labelfont 1 labelsize 10
  270.               }
  271.             }
  272.             Fl_Dial hpfreqmult {
  273.               label FreqMlt
  274.               callback {pars->Php.freqmult=(int) o->value();
  275. hprofile->redraw();
  276. cbwidget->do_callback();}
  277.               xywh {55 75 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  278.               code0 {o->value(pars->Php.freqmult);}
  279.               class WidgetPDial
  280.             }
  281.             Fl_Dial hpmpar1 {
  282.               label Str
  283.               callback {pars->Php.modulator.par1=(int) o->value();
  284. hprofile->redraw();
  285. cbwidget->do_callback();}
  286.               xywh {15 115 20 20} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  287.               code0 {o->value(pars->Php.modulator.par1);}
  288.               class WidgetPDial
  289.             }
  290.             Fl_Dial hpmfreq {
  291.               label SFreq
  292.               callback {pars->Php.modulator.freq=(int) o->value();
  293. hprofile->redraw();
  294. cbwidget->do_callback();}
  295.               xywh {40 115 20 20} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  296.               code0 {o->value(pars->Php.modulator.freq);}
  297.               class WidgetPDial
  298.             }
  299.             Fl_Group {} {
  300.               xywh {10 160 80 105} box BORDER_BOX
  301.             } {
  302.               Fl_Choice hpamptype {
  303.                 label AmpMultiplier
  304.                 callback {pars->Php.amp.type=o->value();
  305. hprofile->redraw();
  306. cbwidget->do_callback();}
  307.                 xywh {15 175 70 15} down_box BORDER_BOX labelsize 10 align 5 textsize 10
  308.                 code0 {o->value(pars->Php.amp.type);}
  309.               } {
  310.                 menuitem {} {
  311.                   label OFF
  312.                   xywh {45 45 100 20} labelfont 1 labelsize 10
  313.                 }
  314.                 menuitem {} {
  315.                   label Gauss
  316.                   xywh {55 55 100 20} labelfont 1 labelsize 10
  317.                 }
  318.                 menuitem {} {
  319.                   label Sine
  320.                   xywh {65 65 100 20} labelfont 1 labelsize 10
  321.                 }
  322.                 menuitem {} {
  323.                   label Flat
  324.                   xywh {75 75 100 20} labelfont 1 labelsize 10
  325.                 }
  326.               }
  327.               Fl_Choice hpampmode {
  328.                 label AmpMode
  329.                 callback {pars->Php.amp.mode=o->value();
  330. hprofile->redraw();
  331. cbwidget->do_callback();}
  332.                 xywh {15 205 70 15} down_box BORDER_BOX labelsize 10 align 5 textsize 10
  333.                 code0 {o->value(pars->Php.amp.mode);}
  334.               } {
  335.                 menuitem {} {
  336.                   label Sum
  337.                   xywh {60 60 100 20} labelfont 1 labelsize 10
  338.                 }
  339.                 menuitem {} {
  340.                   label Mult
  341.                   xywh {70 70 100 20} labelfont 1 labelsize 10
  342.                 }
  343.                 menuitem {} {
  344.                   label Div1
  345.                   xywh {80 80 100 20} labelfont 1 labelsize 10
  346.                 }
  347.                 menuitem {} {
  348.                   label Div2
  349.                   xywh {90 90 100 20} labelfont 1 labelsize 10
  350.                 }
  351.               }
  352.               Fl_Dial hpamppar1 {
  353.                 label Par1
  354.                 callback {pars->Php.amp.par1=(int) o->value();
  355. hprofile->redraw();
  356. cbwidget->do_callback();}
  357.                 xywh {15 235 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  358.                 code0 {o->value(pars->Php.amp.par1);}
  359.                 class WidgetPDial
  360.               }
  361.               Fl_Dial hpamppar2 {
  362.                 label Par2
  363.                 callback {pars->Php.amp.par2=(int) o->value();
  364. hprofile->redraw();
  365. cbwidget->do_callback();}
  366.                 xywh {55 235 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  367.                 code0 {o->value(pars->Php.amp.par2);}
  368.                 class WidgetPDial
  369.               }
  370.             }
  371.             Fl_Check_Button hpautoscale {
  372.               label autoscale
  373.               callback {pars->Php.autoscale=(int) o->value();
  374. hprofile->redraw();
  375. cbwidget->do_callback();}
  376.               xywh {10 270 60 15} down_box DOWN_BOX labelsize 10
  377.               code0 {o->value(pars->Php.autoscale);}
  378.             }
  379.             Fl_Choice hponehalf {
  380.               callback {pars->Php.onehalf=o->value();
  381. hprofile->redraw();
  382. cbwidget->do_callback();}
  383.               xywh {10 143 80 15} down_box BORDER_BOX labelsize 10 align 5 textsize 10
  384.               code0 {o->value(pars->Php.onehalf);}
  385.             } {
  386.               menuitem {} {
  387.                 label Full
  388.                 xywh {25 25 100 20} labelfont 1 labelsize 10
  389.               }
  390.               menuitem {} {
  391.                 label {Upper Half}
  392.                 xywh {45 45 100 20} labelfont 1 labelsize 10
  393.               }
  394.               menuitem {} {
  395.                 label {Lower Half}
  396.                 xywh {35 35 100 20} labelfont 1 labelsize 10
  397.               }
  398.             }
  399.             Fl_Dial hpwidth {
  400.               label Size
  401.               callback {pars->Php.width=(int) o->value();
  402. hprofile->redraw();
  403. cbwidget->do_callback();}
  404.               xywh {65 115 20 20} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  405.               code0 {o->value(pars->Php.width);}
  406.               class WidgetPDial
  407.             }
  408.           }
  409.           Fl_Group {} {
  410.             xywh {100 155 270 135} box THIN_DOWN_BOX color 32 selection_color 71 labelcolor 179 align 6
  411.             code0 {osc=new Oscilloscope(o->x(),o->y(),o->w(),o->h(),"");}
  412.             code1 {osc->init(pars->oscilgen,master);}
  413.           } {}
  414.           Fl_Button {} {
  415.             label Change
  416.             callback {if (oscui!=NULL) delete (oscui);
  417. oscui=new OscilEditor(pars->oscilgen,osc,cbwidget,applybutton,master);}
  418.             xywh {375 270 60 20} box THIN_UP_BOX labelfont 1 labelsize 12
  419.           }
  420.           Fl_Box cbwidget {
  421.             label {Harmonic Content}
  422.             callback {overtonepos->redraw();
  423. applybutton->color(FL_RED);
  424. applybutton->redraw();}
  425.             xywh {125 135 205 20} align 16
  426.           }
  427.           Fl_Button {} {
  428.             label Resonance
  429.             callback {resui->resonancewindow->redraw();
  430. resui->resonancewindow->show();
  431. resui->setcbwidget(cbwidget,applybutton);}
  432.             xywh {375 225 80 20} box THIN_UP_BOX
  433.           }
  434.           Fl_Dial bwdial {
  435.             label BandWidth
  436.             callback {bwcents->value(pars->setPbandwidth((int) o->value()));
  437. cbwidget->do_callback();}
  438.             xywh {15 295 35 35} box ROUND_UP_BOX labelsize 11 maximum 1000 step 1
  439.             code0 {o->value(pars->Pbandwidth);}
  440.             code1 {if (pars->Pmode!=0) o->deactivate();}
  441.             class WidgetPDial
  442.           }
  443.           Fl_Value_Output bwcents {
  444.             label cents
  445.             xywh {55 305 55 15} labelsize 10 align 6 maximum 10000 step 0.1
  446.             code0 {o->value(pars->setPbandwidth(pars->Pbandwidth));}
  447.             code1 {if (pars->Pmode!=0) o->deactivate();}
  448.           }
  449.           Fl_Group {} {
  450.             xywh {315 295 215 45} box ENGRAVED_BOX
  451.           } {
  452.             Fl_Choice hrpostype {
  453.               label OvertonesPosition
  454.               callback {pars->Phrpos.type=o->value();
  455. overtonepos->redraw();
  456. cbwidget->do_callback();}
  457.               xywh {325 310 80 20} down_box BORDER_BOX labelsize 10 align 5 textsize 12
  458.               code0 {o->value(pars->Phrpos.type);}
  459.             } {
  460.               menuitem {} {
  461.                 label Harmonic
  462.                 xywh {70 70 100 20} labelfont 1 labelsize 12
  463.               }
  464.               menuitem {} {
  465.                 label ShiftU
  466.                 xywh {80 80 100 20} labelfont 1 labelsize 12
  467.               }
  468.               menuitem {} {
  469.                 label ShiftL
  470.                 xywh {90 90 100 20} labelfont 1 labelsize 12
  471.               }
  472.               menuitem {} {
  473.                 label PowerU
  474.                 xywh {90 90 100 20} labelfont 1 labelsize 12
  475.               }
  476.               menuitem {} {
  477.                 label PowerL
  478.                 xywh {100 100 100 20} labelfont 1 labelsize 12
  479.               }
  480.               menuitem {} {
  481.                 label Sine
  482.                 xywh {110 110 100 20} labelfont 1 labelsize 12
  483.               }
  484.               menuitem {} {
  485.                 label Power
  486.                 xywh {120 120 100 20} labelfont 1 labelsize 12
  487.               }
  488.             }
  489.             Fl_Dial hrpospar1 {
  490.               label Par1
  491.               callback {pars->Phrpos.par1=(int) o->value();
  492. overtonepos->redraw();
  493. cbwidget->do_callback();}
  494.               xywh {425 310 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 255 step 1
  495.               code0 {o->value(pars->Phrpos.par1);}
  496.               class WidgetPDial
  497.             }
  498.             Fl_Dial hrpospar2 {
  499.               label Par2
  500.               callback {pars->Phrpos.par2=(int) o->value();
  501. overtonepos->redraw();
  502. cbwidget->do_callback();}
  503.               xywh {460 310 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 255 step 1
  504.               code0 {o->value(pars->Phrpos.par2);}
  505.               class WidgetPDial
  506.             }
  507.             Fl_Dial hrpospar3 {
  508.               label ForceH
  509.               callback {pars->Phrpos.par3=(int) o->value();
  510. overtonepos->redraw();
  511. cbwidget->do_callback();}
  512.               xywh {495 310 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 255 step 1
  513.               code0 {o->value(pars->Phrpos.par3);}
  514.               class WidgetPDial
  515.             }
  516.           }
  517.           Fl_Choice bwscale {
  518.             label {Bandwidth Scale}
  519.             callback {pars->Pbwscale=(int) o->value();
  520. cbwidget->do_callback();}
  521.             xywh {120 305 80 20} down_box BORDER_BOX labelsize 10 align 5 textsize 12
  522.             code0 {o->value(pars->Pbwscale);}
  523.             code1 {if (pars->Pmode!=0) o->deactivate();}
  524.           } {
  525.             menuitem {} {
  526.               label Normal
  527.               xywh {95 95 100 20} labelfont 1 labelsize 12
  528.             }
  529.             menuitem {} {
  530.               label EqualHz
  531.               xywh {105 105 100 20} labelfont 1 labelsize 12
  532.             }
  533.             menuitem {} {
  534.               label Quater
  535.               xywh {115 115 100 20} labelfont 1 labelsize 12
  536.             }
  537.             menuitem {} {
  538.               label Half
  539.               xywh {125 125 100 20} labelfont 1 labelsize 12
  540.             }
  541.             menuitem {} {
  542.               label {75%}
  543.               xywh {135 135 100 20} labelfont 1 labelsize 12
  544.             }
  545.             menuitem {} {
  546.               label {150%}
  547.               xywh {145 145 100 20} labelfont 1 labelsize 12
  548.             }
  549.             menuitem {} {
  550.               label Double
  551.               xywh {145 145 100 20} labelfont 1 labelsize 12
  552.             }
  553.             menuitem {} {
  554.               label {Inv.Half}
  555.               xywh {155 155 100 20} labelfont 1 labelsize 12
  556.             }
  557.           }
  558.           Fl_Group overtonepos {
  559.             xywh {5 345 525 45} box FLAT_BOX color 54 selection_color 218 labelcolor 63
  560.             code0 {PADnoteOvertonePosition *opui=new PADnoteOvertonePosition(o->x(),o->y(),o->w(),o->h(),"");}
  561.             code1 {opui->init(pars,master);}
  562.           } {}
  563.           Fl_Choice qsamplesize {
  564.             label {Sample Size}
  565.             callback {pars->Pquality.samplesize=(int) o->value();
  566. cbwidget->do_callback();}
  567.             xywh {375 190 115 20} down_box BORDER_BOX labelsize 10 align 5 textsize 12
  568.             code0 {o->value(pars->Pquality.samplesize);}
  569.           } {
  570.             menuitem {} {
  571.               label {16k (Tiny)}
  572.               xywh {155 155 100 20} labelfont 1 labelsize 12
  573.             }
  574.             menuitem {} {
  575.               label 32k
  576.               xywh {165 165 100 20} labelfont 1 labelsize 12
  577.             }
  578.             menuitem {} {
  579.               label {64k (Small)}
  580.               xywh {175 175 100 20} labelfont 1 labelsize 12
  581.             }
  582.             menuitem {} {
  583.               label 128k
  584.               xywh {185 185 100 20} labelfont 1 labelsize 12
  585.             }
  586.             menuitem {} {
  587.               label {256k (Normal)}
  588.               xywh {205 205 100 20} labelfont 1 labelsize 12
  589.             }
  590.             menuitem {} {
  591.               label 512k
  592.               xywh {200 200 100 20} labelfont 1 labelsize 12
  593.             }
  594.             menuitem {} {
  595.               label {1M (Big)}
  596.               xywh {205 205 100 20} labelfont 1 labelsize 12
  597.             }
  598.           }
  599.           Fl_Choice qsmpoct {
  600.             label {smp/oct}
  601.             callback {pars->Pquality.smpoct=(int) o->value();
  602. cbwidget->do_callback();}
  603.             xywh {430 155 45 20} down_box BORDER_BOX labelsize 12 align 5 textsize 12
  604.             code0 {o->value(pars->Pquality.smpoct);}
  605.           } {
  606.             menuitem {} {
  607.               label {0.5}
  608.               xywh {10 10 100 20} labelfont 1 labelsize 12
  609.             }
  610.             menuitem {} {
  611.               label 1
  612.               xywh {0 0 100 20} labelfont 1 labelsize 12
  613.             }
  614.             menuitem {} {
  615.               label 2
  616.               xywh {10 10 100 20} labelfont 1 labelsize 12
  617.             }
  618.             menuitem {} {
  619.               label 3
  620.               xywh {20 20 100 20} labelfont 1 labelsize 12
  621.             }
  622.             menuitem {} {
  623.               label 4
  624.               xywh {30 30 100 20} labelfont 1 labelsize 12
  625.             }
  626.             menuitem {} {
  627.               label 6
  628.               xywh {40 40 100 20} labelfont 1 labelsize 12
  629.             }
  630.             menuitem {} {
  631.               label 12
  632.               xywh {50 50 100 20} labelfont 1 labelsize 12
  633.             }
  634.           }
  635.           Fl_Choice qoct {
  636.             label {no.oct}
  637.             callback {pars->Pquality.oct=(int) o->value();
  638. cbwidget->do_callback();}
  639.             xywh {480 155 45 20} down_box BORDER_BOX labelsize 12 align 5 textsize 12
  640.             code0 {o->value(pars->Pquality.oct);}
  641.           } {
  642.             menuitem {} {
  643.               label 1
  644.               xywh {10 10 100 20} labelfont 1 labelsize 12
  645.             }
  646.             menuitem {} {
  647.               label 2
  648.               xywh {20 20 100 20} labelfont 1 labelsize 12
  649.             }
  650.             menuitem {} {
  651.               label 3
  652.               xywh {30 30 100 20} labelfont 1 labelsize 12
  653.             }
  654.             menuitem {} {
  655.               label 4
  656.               xywh {40 40 100 20} labelfont 1 labelsize 12
  657.             }
  658.             menuitem {} {
  659.               label 5
  660.               xywh {50 50 100 20} labelfont 1 labelsize 12
  661.             }
  662.             menuitem {} {
  663.               label 6
  664.               xywh {60 60 100 20} labelfont 1 labelsize 12
  665.             }
  666.             menuitem {} {
  667.               label 7
  668.               xywh {70 70 100 20} labelfont 1 labelsize 12
  669.             }
  670.             menuitem {} {
  671.               label 8
  672.               xywh {80 80 100 20} labelfont 1 labelsize 12
  673.             }
  674.           }
  675.           Fl_Choice qbasenote {
  676.             label base
  677.             callback {pars->Pquality.basenote=(int) o->value();
  678. cbwidget->do_callback();}
  679.             xywh {375 155 50 20} down_box BORDER_BOX labelsize 12 align 5 textsize 12
  680.             code0 {o->value(pars->Pquality.basenote);}
  681.           } {
  682.             menuitem {} {
  683.               label {C-2}
  684.               xywh {10 10 100 20} labelfont 1
  685.             }
  686.             menuitem {} {
  687.               label {G-2}
  688.               xywh {20 20 100 20} labelfont 1
  689.             }
  690.             menuitem {} {
  691.               label {C-3}
  692.               xywh {20 20 100 20} labelfont 1
  693.             }
  694.             menuitem {} {
  695.               label {G-3}
  696.               xywh {30 30 100 20} labelfont 1
  697.             }
  698.             menuitem {} {
  699.               label {C-4}
  700.               xywh {30 30 100 20} labelfont 1
  701.             }
  702.             menuitem {} {
  703.               label {G-4}
  704.               xywh {40 40 100 20} labelfont 1
  705.             }
  706.             menuitem {} {
  707.               label {C-5}
  708.               xywh {40 40 100 20} labelfont 1
  709.             }
  710.             menuitem {} {
  711.               label {G-5}
  712.               xywh {50 50 100 20} labelfont 1
  713.             }
  714.             menuitem {} {
  715.               label {G-6}
  716.               xywh {60 60 100 20} labelfont 1
  717.             }
  718.           }
  719.           Fl_Group hprofile {
  720.             xywh {100 45 430 90} box FLAT_BOX color 54 selection_color 218 labelcolor 63
  721.             code0 {PADnoteHarmonicProfile *hpui=new PADnoteHarmonicProfile(o->x(),o->y(),o->w(),o->h(),"");}
  722.             code1 {hpui->init(pars,master);}
  723.             code2 {if (pars->Pmode!=0) { o->deactivate(); o->color(48);};}
  724.           } {}
  725.           Fl_Box {} {
  726.             label {Profile of One Harmonic (Frequency Distribution)}
  727.             xywh {160 25 315 20}
  728.           }
  729.           Fl_Choice spectrummode {
  730.             label {Spectrum Mode}
  731.             callback {pars->Pmode=(int) o->value();
  732.  
  733. if (pars->Pmode==0){
  734.    bwprofilegroup->activate();
  735.    bwdial->activate();
  736.    bwcents->activate();
  737.    hprofile->activate();
  738.    hprofile->color(54);
  739.    bwscale->activate();
  740. } else {
  741.    bwprofilegroup->deactivate();
  742.    bwdial->deactivate();
  743.    bwcents->deactivate();
  744.    hprofile->deactivate();
  745.    hprofile->color(48);
  746.    bwscale->deactivate();
  747. };
  748.  
  749. cbwidget->do_callback();}
  750.             xywh {220 305 90 20} down_box BORDER_BOX labelfont 1 labelsize 10 labelcolor 0 align 5 textsize 12
  751.             code0 {o->value(pars->Pmode);}
  752.           } {
  753.             menuitem {} {
  754.               label Bandwidth
  755.               xywh {105 105 100 20} labelfont 1 labelsize 12
  756.             }
  757.             menuitem {} {
  758.               label Discrete
  759.               xywh {125 125 100 20} labelfont 1 labelsize 12 labelcolor 0
  760.             }
  761.             menuitem {} {
  762.               label Continous
  763.               xywh {115 115 100 20} labelfont 1 labelsize 12 labelcolor 0
  764.             }
  765.           }
  766.         }
  767.         Fl_Group {} {
  768.           label {Envelopes&LFOs}
  769.           xywh {0 20 535 375} box ENGRAVED_BOX hide
  770.         } {
  771.           Fl_Group {} {
  772.             label FREQUENCY
  773.             xywh {5 275 525 115} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  774.           } {
  775.             Fl_Group freqenv {
  776.               label {PADSynth - Frequency Envelope} open
  777.               xywh {10 315 205 70} box FLAT_BOX color 51 align 144
  778.               code0 {o->init(pars->FreqEnvelope);}
  779.               class EnvelopeUI
  780.             } {}
  781.             Fl_Counter octave {
  782.               label Octave
  783.               callback {int k=(int) o->value();
  784. if (k<0) k+=16;
  785. pars->PCoarseDetune = k*1024+
  786.    pars->PCoarseDetune%1024;}
  787.               tooltip Octave xywh {470 295 45 15} type Simple labelsize 10 align 1 minimum -8 maximum 7 step 1 textfont 1 textsize 12
  788.               code0 {int k=pars->PCoarseDetune/1024;}
  789.               code1 {if (k>=8) k-=16;}
  790.               code2 {o->value(k);}
  791.             }
  792.             Fl_Counter coarsedet {
  793.               label {Coarse det.}
  794.               callback {int k=(int) o->value();
  795. if (k<0) k+=1024;
  796. pars->PCoarseDetune = k+
  797.    (pars->PCoarseDetune/1024)*1024;}
  798.               tooltip {Coarse Detune} xywh {455 365 60 20} labelsize 10 align 5 minimum -64 maximum 63 step 1 textfont 1 textsize 12
  799.               code0 {int k=pars->PCoarseDetune%1024;}
  800.               code1 {if (k>=512) k-=1024;}
  801.               code2 {o->value(k);}
  802.               code3 {o->lstep(10);}
  803.             }
  804.             Fl_Group freqlfo {
  805.               label {Frequency LFO     } open
  806.               xywh {215 315 230 70} box FLAT_BOX color 47 align 144
  807.               code0 {o->init(pars->FreqLfo);}
  808.               class LFOUI
  809.             } {}
  810.             Fl_Slider detune {
  811.               callback {pars->PDetune=(int)o->value()+8192;
  812. detunevalueoutput->do_callback();}
  813.               tooltip {Fine Detune (cents)} xywh {60 295 295 15} type {Horz Knob} box FLAT_BOX minimum -8192 maximum 8191 step 1
  814.               code0 {o->value(pars->PDetune-8192);}
  815.             }
  816.             Fl_Value_Output detunevalueoutput {
  817.               label Detune
  818.               callback {o->value(getdetune(pars->PDetuneType,0,pars->PDetune));}
  819.               xywh {12 295 45 15} labelsize 10 align 5 minimum -5000 maximum 5000 step 0.01 textfont 1 textsize 10
  820.               code0 {o->value(getdetune(pars->PDetuneType,0,pars->PDetune));}
  821.             }
  822.             Fl_Choice detunetype {
  823.               label {Detune Type}
  824.               callback {pars->PDetuneType=(int) o->value()+1;
  825. detunevalueoutput->do_callback();} open
  826.               xywh {450 335 75 15} down_box BORDER_BOX labelsize 10 align 5 textfont 1 textsize 10
  827.               code0 {o->add("L35cents");o->add("L10cents");o->add("E100cents");o->add("E1200cents");}
  828.               code1 {o->value(pars->PDetuneType-1);}
  829.             } {}
  830.             Fl_Check_Button hz440 {
  831.               label 440Hz
  832.               callback {int x=(int) o->value();
  833. pars->Pfixedfreq=x;
  834. if (x==0) fixedfreqetdial->deactivate();
  835.    else fixedfreqetdial->activate();}
  836.               tooltip {set the base frequency to 440Hz} xywh {365 295 50 15} down_box DOWN_BOX labelfont 1 labelsize 11
  837.               code0 {o->value(pars->Pfixedfreq);}
  838.             }
  839.             Fl_Dial fixedfreqetdial {
  840.               label {Eq.T.}
  841.               callback {pars->PfixedfreqET=(int) o->value();}
  842.               tooltip {How the frequency varies acording to the keyboard (leftmost for fixed frequency)} xywh {420 295 15 15} box ROUND_UP_BOX labelsize 10 align 8 maximum 127 step 1
  843.               code0 {o->value(pars->PfixedfreqET);}
  844.               code1 {if (pars->Pfixedfreq==0) o->deactivate();}
  845.               class WidgetPDial
  846.             }
  847.           }
  848.           Fl_Group {} {
  849.             label AMPLITUDE
  850.             xywh {5 25 240 250} box THIN_UP_FRAME labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  851.           } {
  852.             Fl_Value_Slider volume {
  853.               label Vol
  854.               callback {pars->PVolume=(int)o->value();}
  855.               tooltip Volume xywh {10 50 160 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 maximum 127 step 1
  856.               code0 {o->value(pars->PVolume);}
  857.             }
  858.             Fl_Value_Slider vsns {
  859.               label {V.Sns}
  860.               callback {pars->PAmpVelocityScaleFunction=(int) o->value();}
  861.               tooltip {Velocity Sensing Function (rightmost to disable)} xywh {10 70 160 15} type {Horz Knob} box FLAT_BOX labelsize 12 align 8 maximum 127 step 1
  862.               code0 {o->value(pars->PAmpVelocityScaleFunction);}
  863.             }
  864.             Fl_Dial pan {
  865.               label Pan
  866.               callback {pars->PPanning=(int) o->value();}
  867.               tooltip {Panning (leftmost is Random)} xywh {210 45 30 30} box ROUND_UP_BOX labelsize 11 maximum 127 step 1
  868.               code0 {o->value(pars->PPanning);}
  869.               class WidgetPDial
  870.             }
  871.             Fl_Dial pstr {
  872.               label {P.Str.}
  873.               callback {pars->PPunchStrength=(int) o->value();}
  874.               tooltip {Punch Strength} xywh {125 247 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  875.               code0 {o->value(pars->PPunchStrength);}
  876.               class WidgetPDial
  877.             }
  878.             Fl_Dial pt {
  879.               label {P.t.}
  880.               callback {pars->PPunchTime=(int) o->value();}
  881.               tooltip {Punch Time (duration)} xywh {155 247 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  882.               code0 {o->value(pars->PPunchTime);}
  883.               class WidgetPDial
  884.             }
  885.             Fl_Dial pstc {
  886.               label {P.Stc.}
  887.               callback {pars->PPunchStretch=(int) o->value();}
  888.               tooltip {Punch Stretch} xywh {185 247 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  889.               code0 {o->value(pars->PPunchStretch);}
  890.               class WidgetPDial
  891.             }
  892.             Fl_Dial pvel {
  893.               label {P.Vel.}
  894.               callback {pars->PPunchVelocitySensing=(int) o->value();}
  895.               tooltip {Punch Velocity Sensing} xywh {215 247 25 25} box ROUND_UP_BOX labelsize 11 align 1 maximum 127 step 1
  896.               code0 {o->value(pars->PPunchVelocitySensing);}
  897.               class WidgetPDial
  898.             }
  899.             Fl_Group ampenv {
  900.               label {PADSynth - Amplitude Envelope} open
  901.               xywh {10 95 205 70} box FLAT_BOX color 51 align 144
  902.               code0 {o->init(pars->AmpEnvelope);}
  903.               class EnvelopeUI
  904.             } {}
  905.             Fl_Group amplfo {
  906.               label {Amplitude LFO     } open
  907.               xywh {10 165 230 70} box FLAT_BOX color 47 align 144
  908.               code0 {o->init(pars->AmpLfo);}
  909.               class LFOUI
  910.             } {}
  911.             Fl_Check_Button stereo {
  912.               label Stereo
  913.               callback {pars->PStereo=(int) o->value();
  914. hprofile->redraw();}
  915.               xywh {15 245 70 25} down_box DOWN_BOX
  916.               code0 {o->value(pars->PStereo);}
  917.             }
  918.           }
  919.           Fl_Group {} {
  920.             label FILTER
  921.             xywh {245 25 285 250} box THIN_UP_BOX labeltype EMBOSSED_LABEL labelfont 1 labelsize 16 align 17
  922.           } {
  923.             Fl_Group filterenv {
  924.               label {PADSynth - Filter Envelope} open
  925.               xywh {250 130 275 70} box FLAT_BOX color 51 align 144
  926.               code0 {o->init(pars->FilterEnvelope);}
  927.               class EnvelopeUI
  928.             } {}
  929.             Fl_Group filterlfo {
  930.               label {Filter LFO     } open
  931.               xywh {250 200 230 70} box FLAT_BOX color 47 align 144
  932.               code0 {o->init(pars->FilterLfo);}
  933.               class LFOUI
  934.             } {}
  935.             Fl_Group filterui {
  936.               label {PADsynth - Filter} open
  937.               xywh {250 55 275 75} box FLAT_BOX color 50 align 144
  938.               code0 {o->init(pars->GlobalFilter,&pars->PFilterVelocityScale,&pars->PFilterVelocityScaleFunction);}
  939.               class FilterUI
  940.             } {}
  941.           }
  942.         }
  943.       }
  944.       Fl_Button applybutton {
  945.         label {Apply Changes}
  946.         callback {pars->applyparameters(true);
  947. o->color(FL_GRAY);
  948. if (oscui!=NULL) {
  949.     oscui->applybutton->color(FL_GRAY);
  950.     oscui->applybutton->redraw();
  951. };
  952. if (resui!=NULL) {
  953.     resui->applybutton->color(FL_GRAY);
  954.     resui->applybutton->redraw();
  955. };}
  956.         xywh {45 405 185 40} box THIN_UP_BOX labelfont 1 labelsize 23
  957.         code0 {o->color(FL_RED);}
  958.       }
  959.       Fl_Button {} {
  960.         label Close
  961.         callback {padnotewindow->hide();}
  962.         xywh {320 405 175 40} box THIN_UP_BOX labelsize 20
  963.       }
  964.       Fl_Button {} {
  965.         label C
  966.         callback {presetsui->copy(pars);}
  967.         xywh {240 430 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
  968.       }
  969.       Fl_Button {} {
  970.         label P
  971.         callback {presetsui->paste(pars,this);}
  972.         xywh {270 430 25 15} box THIN_UP_BOX color 179 labelfont 1 labelsize 12 labelcolor 7
  973.       }
  974.     }
  975.   }
  976.   Function {refresh()} {} {
  977.     code {volume->value(pars->PVolume);
  978. vsns->value(pars->PAmpVelocityScaleFunction);
  979. pan->value(pars->PPanning);
  980.  
  981. stereo->value(pars->PStereo);
  982.  
  983.  
  984. pstr->value(pars->PPunchStrength);
  985. pt->value(pars->PPunchTime);
  986. pstc->value(pars->PPunchStretch);
  987. pvel->value(pars->PPunchVelocitySensing);
  988.  
  989. detunevalueoutput->value(getdetune(pars->PDetuneType,0,pars->PDetune));
  990. detune->value(pars->PDetune-8192);
  991.  
  992. int k=pars->PCoarseDetune/1024;if (k>=8) k-=16;
  993. octave->value(k);
  994.  
  995. detunetype->value(pars->PDetuneType-1);
  996. k=pars->PCoarseDetune%1024;if (k>=512) k-=1024;
  997. coarsedet->value(k);
  998.  
  999. hz440->value(pars->Pfixedfreq);
  1000. fixedfreqetdial->value(pars->PfixedfreqET);
  1001.  
  1002. amplfo->refresh();
  1003. freqlfo->refresh();
  1004. filterlfo->refresh();
  1005.  
  1006. ampenv->refresh();
  1007. freqenv->refresh();
  1008. filterenv->refresh();
  1009. filterui->refresh();
  1010.  
  1011.  
  1012. /* harmonic structure parametrs */
  1013.  
  1014. resui->refresh();
  1015. if (oscui!=NULL) oscui->refresh();
  1016.  
  1017. hpbasetype->value(pars->Php.base.type);
  1018. hpbasepar1->value(pars->Php.base.par1);
  1019. hpfreqmult->value(pars->Php.freqmult);
  1020.  
  1021. hpmpar1->value(pars->Php.modulator.par1);
  1022. hpmfreq->value(pars->Php.modulator.freq);
  1023. hpwidth->value(pars->Php.width);
  1024.  
  1025. hponehalf->value(pars->Php.onehalf);
  1026. hpamptype->value(pars->Php.amp.type);
  1027. hpampmode->value(pars->Php.amp.mode);
  1028. hpamppar1->value(pars->Php.amp.par1);
  1029. hpamppar2->value(pars->Php.amp.par2);
  1030. hpautoscale->value(pars->Php.autoscale);
  1031.  
  1032. bwdial->value(pars->Pbandwidth);
  1033. if (pars->Pmode==0){
  1034.    bwprofilegroup->activate();
  1035.    bwdial->activate();
  1036.    bwcents->activate();
  1037.    hprofile->activate();
  1038.    hprofile->color(54);
  1039.    bwscale->activate();
  1040. } else {
  1041.    bwprofilegroup->deactivate();
  1042.    bwdial->deactivate();
  1043.    bwcents->deactivate();
  1044.    hprofile->deactivate();
  1045.    hprofile->color(48);
  1046.    bwscale->activate();
  1047. };
  1048.  
  1049. spectrummode->value(pars->Pmode);
  1050.  
  1051. qbasenote->value(pars->Pquality.basenote);
  1052. qsmpoct->value(pars->Pquality.smpoct);
  1053. qoct->value(pars->Pquality.oct);
  1054. qsamplesize->value(pars->Pquality.samplesize);
  1055.  
  1056. hrpostype->value(pars->Phrpos.type);
  1057. hrpospar1->value(pars->Phrpos.par1);
  1058. hrpospar2->value(pars->Phrpos.par2);
  1059. hrpospar3->value(pars->Phrpos.par3);
  1060.  
  1061. hprofile->redraw();
  1062. overtonepos->redraw();
  1063.  
  1064. osc->redraw();
  1065. pars->applyparameters(true);
  1066. applybutton->color(FL_GRAY);
  1067. applybutton->parent()->redraw();} {}
  1068.   }
  1069.   Function {~PADnoteUI()} {} {
  1070.     code {delete(oscui);
  1071. delete(resui);
  1072.  
  1073. padnotewindow->hide();
  1074. delete(padnotewindow);} {}
  1075.   }
  1076.   decl {PADnoteParameters *pars;} {public
  1077.   }
  1078.   decl {Master *master;} {public
  1079.   }
  1080.   decl {OscilEditor *oscui;} {public
  1081.   }
  1082.   decl {Oscilloscope *osc;} {public
  1083.   }
  1084.   decl {ResonanceUI *resui;} {public
  1085.   }
  1086. } 
  1087.